home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / EDLISP / EDIT.SCM < prev    next >
Encoding:
Text File  |  1993-12-06  |  1.4 KB  |  32 lines
  1. ;;; Un petit utilitaire si vous ne souhaitez pas utiliser EDWIN.
  2. ;;; L'éditeur EDLISP a été écrit spécialement pour PCS par Bertrand Le Guern,
  3. ;;; prof. de maths à Albi, et hacker C devant l'Eternel... Merci, Bertrand !
  4.  
  5. ;;; A la sortie, EDLISP demande ce qu'il faudra compiler (tout ou un bloc),
  6. ;;; et le sauvera dans un fichier BUFFER.TMP, dans un répertoire que l'on
  7. ;;; précise sur la ligne de commande de EDLISP (cf. ci-dessous).
  8. ;;; On suppose que BUFFER.TMP est à la racine de D: (modifiez suivant vos
  9. ;;; disques durs).
  10.  
  11. ;;; Exemple: (edit "fac.scm")  ; les jokers sont admis : (edit "ex1-*.scm")
  12. ;;; avec ouverture d'autant de fenêtres. Mais seule la fenêtre principale
  13. ;;; sera compilable à la fin via le BUFFER.TMP !
  14.  
  15. (define (edit . f)
  16.    (set! f (if (null? f) "noname.scm" (car f)))
  17.    (if (dos-search-file "d:\\buffer.tmp")  ; old stuff
  18.        (dos-delete "d:\\buffer.tmp"))
  19.    (let ((sauve (window-save-contents 'console)))  ; save current window
  20.       (dos-call ""    ; going temporarily under EDLISP
  21.                 (string-append
  22.                    "c:\\pcs\\edit\\edlisp "
  23.                    "/m116 /f7 /c30 /b32000 /dd:\\ /Hc:\\pcs\\edit\\edhlp " f))
  24.       (window-restore-contents 'console sauve)   ; restore toplevel window
  25.       (if (dos-search-file "d:\\buffer.tmp")     ; anything to load ?
  26.           (load "d:\\buffer.tmp"))))
  27.  
  28. (define old-edwin edwin)
  29.  
  30. (define edwin edit)
  31.  
  32.